// $Header: $
// Copyright (c) CODE Consulting and Development, s.r.o., Plzen. All rights reserved.
// ReSharper disable ArrangeModifiersOrder
// ReSharper disable InconsistentNaming
//
// Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html .
using System;
using System.Diagnostics;
using OpcLabs.EasyOpc.DataAccess;
using OpcLabs.EasyOpc.DataAccess.AddressSpace;
using OpcLabs.EasyOpc.OperationModel;
namespace BrowseBranchesWeb
{
    public partial class _Default : System.Web.UI.Page
    {
        // Use a shared client instance to allow for better optimization.
        static private readonly EasyDAClient Client = new EasyDAClient();
        protected void Page_Load(object sender, EventArgs e)
        {
            try
            {
                DANodeElementCollection elementDictionary = Client.BrowseBranches("", "OPCLabs.KitServer.2");
                Debug.Assert(!(elementDictionary.Keys is null));
                foreach (string key in elementDictionary.Keys)
                {
                    Debug.Assert(!(key is null));
                    var branchElement = elementDictionary[key];
                    Debug.Assert(!(branchElement is null));
                    ListBox1.Items.Add(branchElement.ItemId);
                }
                ListBox1.Visible = true;
            }
            catch (OpcException ex)
            {
                TextBox1.Text = ex.GetBaseException().Message;
                TextBox1.Visible = true;
            }
        }
        protected override void OnInit(EventArgs e)
        {
            base.OnInit(e);
            Load += Page_Load;
        }
    }
}
     
    
        
'
' Find all latest examples here: https://opclabs.doc-that.com/files/onlinedocs/OPCLabs-OpcStudio/Latest/examples.html .
Imports OpcLabs.EasyOpc.DataAccess
Imports OpcLabs.EasyOpc.OperationModel
' ReSharper disable InconsistentNaming
Partial Public Class _Default
    Inherits Page
    ' Use a shared client instance to allow for better optimization.
    Shared ReadOnly Client As New EasyDAClient
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        Try
            Dim branchElements = Client.BrowseBranches("", "OPCLabs.KitServer.2")
            For Each branchElement In branchElements
                ListBox1.Items.Add(branchElement.ItemId)
            Next
            ListBox1.Visible = True
        Catch ex As OpcException
            TextBox1.Text = ex.GetBaseException.Message
            TextBox1.Visible = True
        End Try
    End Sub
End Class